Created on " & date & " All Rights Reserved to " & firstname.value & " " & lastname.value & " � E-mail me at " & "" & yourmail.value & "" & "
"
end sub
sub clearall_onclick
src.value = ""
End Sub
Sub About_OnClick
dim msg
msgbox "This HTML Editor is brought to you by Weird Creations. It is still in its testing phase. Some things might not work right now but they will soon. I am creating this in my spare time so that others can get some basic help with HTML."
End Sub
Sub Size_OnClick
dim size2, stext, color, DgDef, Msg, Response, Title
Const MB_OK = 0, MB_OKCANCEL = 1
Const MB_YESNOCANCEL = 3, MB_YESNO = 4
Const MB_ICONSTOP = 16, MB_ICONQUESTION = 32
Const MB_ICONEXCLAMATION = 48, MB_ICONINFORMATION = 64
Const MB_DEFBUTTON2 = 256, IDYES = 6, IDNO = 7
size2 = inputbox("Please Enter The Size of The Text Your Want 1-7", "Advanced Text Features", "4")
stext = inputbox("Please Enter The Text", "Advanced Text Features")
color = inputbox("Please Enter The Color You Want for The Text", "Color", "Black")
Title = "Make Text Centered?"
Msg = "Do You Want This Text Centered?"
DgDef = MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2
Response = MsgBox(Msg, DgDef, Title)
If Response = IDYES Then
src.value = src.value & "
" & stext & "
"
Else
src.value = src.value & "" & stext & ""
End If
End Sub
sub overlink_onclick
Const MB_OK = 0, MB_OKCANCEL = 1
Const MB_YESNOCANCEL = 3, MB_YESNO = 4
Const MB_ICONSTOP = 16, MB_ICONQUESTION = 32
Const MB_ICONEXCLAMATION = 48, MB_ICONINFORMATION = 64
Const MB_DEFBUTTON2 = 256, IDYES = 6, IDNO = 7
dim hover, active, visited, link, Msg, DgDef, Title, Response
hover = inputbox("Please Enter The Color You Want When You Put The Mouse Over A Link", "Interactiave Links", "Black")
active = inputbox("Please Enter The Color You Want When The Link Has Been Clicked On", "Interactive Links", "White")
visited = inputbox("Please Enter The Color You Want When The Link Has Already Been Visited", "Interactive Links", "Purple")
link = inputbox("Please Enter The Color You Want The Links To Be", "Interactive Links", "Red")
Msg = "Do You Want The Links Underlined?"
Title = "Underline Me?"
DgDef = MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2
Response = MsgBox(Msg, DgDef, Title)
If Response = IDYES then
src.value = "" & vbcrlf & src.value
else
src.value = "hahaha"
end if
end sub
On-line HTML editor brought to you by Weird Creations
Tools
Forms
Title:(Required)
Your E-mail:(Required)
Your First Name:(Required)
Your Last Name:(Required)
BackGround Color:(Required)
Text Color:(Required)
Link Color:(Required)
Visited Link Color:(Required)